object DMDados: TDMDados
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 1147
  Width = 1185
  object dsLista: TDataSource
    DataSet = qryLista
    Left = 64
    Top = 136
  end
  object dsTabela: TDataSource
    DataSet = tblTabela
    Left = 152
    Top = 136
  end
  object conADOServer: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=safood@123;Persist Security Info=Tr' +
      'ue;User ID=sa;Initial Catalog=SAF;Data Source=127.0.0.1\SQLEXPRE' +
      'SS'
    DefaultDatabase = 'SAF'
    LoginPrompt = False
    Mode = cmRead
    Provider = 'SQLOLEDB.1'
    Left = 64
    Top = 24
  end
  object tblTabela: TADOTable
    Connection = conADOServer
    CursorType = ctStatic
    TableName = 'SAF0202'
    Left = 152
    Top = 80
  end
  object qryAuxiliar: TADOQuery
    Connection = conADOServer
    Parameters = <>
    Left = 152
    Top = 24
  end
  object qryLista: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = qryListaAfterOpen
    Parameters = <>
    SQL.Strings = (
      'SELECT '
      ' SAF0202.ID_PRODUCAO,'
      ''
      '--EMPRESA'
      ' SAF0201.ID_EMPRESA,'
      ' SAF0101.FANTASIA AS ID_EMPRESA_FANTASIA,'
      ' SAF0201.ID_EMPRESA_TELEFONE,'
      ' SAF0201.ID_EMPRESA_EMAIL,'
      ' '
      ' --CONTRATO'
      ' '
      ' SAF0202.ID_CONTRATO,'
      ' '
      ' SAF0201.ID_REF_CONTRATO_1,'
      ' SAF0201.ID_REF_CONTRATO_2,'
      ' SAF0201.ID_REF_CONTRATO_3,'
      ''
      
        ' (CAST((RIGHT('#39'00'#39' + CAST(SAF0201.ID_REF_CONTRATO_1 AS VARCHAR),' +
        ' 2)) AS VARCHAR(2)) + '#39'.'#39' + '
      ' CAST(SAF0201.ID_REF_CONTRATO_2 AS VARCHAR(255)) + '#39'/'#39' + '
      
        ' CAST((RIGHT('#39'0000'#39' + CAST(SAF0201.ID_REF_CONTRATO_3 AS VARCHAR)' +
        ', 4)) AS VARCHAR(4))) AS ID_CONTRATO_REF_NRO,'
      ''
      ' SAF0201.CONTRATO_CLIENTE_NRO, '
      ' SAF0201.CONTRATO_DATA,'
      ' SAF0201.MARCA_SIF, '
      ' '
      ' --PRODUTOR'
      ' '
      ' SAF0201.ID_PRODUTOR,'
      ' SAF0102.RAZAO AS ID_PRODUTOR_RAZAO,'
      ' SAF0102.FANTASIA AS ID_PRODUTOR_FANTASIA,'
      ' SAF0102.APELIDO AS ID_PRODUTOR_APELIDO,'
      ' SAF0102.CNPJ AS ID_PRODUTOR_CNPJ,'
      ' SAF0102.ID_PAIS AS ID_PRODUTOR_PAIS_ID,'
      ' SAF0011_PRODUTOR_PAIS.DESCRICAO_PT AS ID_PRODUTOR_PAIS_DSC_PT,'
      ' '
      ' --PRODUTO'
      '  '
      ' SAF0201.PRODUTO_TOTAL_QTDE,'
      ' SAF0202.PRODUCAO_QTDE,'
      ' SAF0202.PRODUCAO_SALDO,'
      ' SAF0202.PRODUCAO_SALDO_DSC, '
      ' '
      ' --PORTO EMBARQUE'
      ' '
      ' SAF0201.ID_PORTO_EMBARQUE,'
      
        ' SAF0104_PORTO_EMBARQUE.DESCRICAO_PT AS ID_PORTO_EMBARQUE_DSC_PT' +
        ','
      ' SAF0104_PORTO_EMBARQUE.ID_PAIS AS ID_PORTO_EMBARQUE_PAIS_ID, '
      
        ' SAF0011_PORTO_EMBARQUE_PAIS.DESCRICAO_PT AS ID_PORTO_EMBARQUE_P' +
        'AIS_DSC_PT,'
      ' '
      ' --PORTO DESTINO'
      ' '
      ' SAF0201.ID_PORTO_DESTINO,'
      ' SAF0104_PORTO_DESTINO.DESCRICAO_PT AS ID_PORTO_DESTINO_DSC_PT,'
      ' SAF0104_PORTO_DESTINO.ID_PAIS AS ID_PORTO_DESTINO_PAIS_ID,'
      
        ' SAF0011_PORTO_DESTINO_PAIS.DESCRICAO_PT AS ID_PORTO_DESTINO_PAI' +
        'S_DSC_PT,'
      ' '
      ' --EMBARQUE SEMANA'
      ' '
      ' SAF0201.EMBARQUE_ANO,'
      ' SAF0201.EMBARQUE_SEMANA,'
      ' SAF0201.EMBARQUE_SEMANA_LIMITE,'
      ' '
      ' --VALIDA PRODUCAO'
      ''
      ' SAF0202.PRODUCAO_VALIDA,'
      ' SAF0202.PRODUCAO_VALIDA_DATA,'
      ' SAF0202.PRODUCAO_VALIDA_ID_USUARIO,'
      ''
      ' --STATUS PRODUCAO'
      ''
      ' SAF0202.ID_TIPO_STATUS,'
      ' SAF0026.DESCRICAO AS ID_TIPO_STATUS_DSC'
      ' '
      'FROM SAF0202'
      ' '
      'LEFT JOIN SAF0201 ON (SAF0202.ID_CONTRATO = SAF0201.ID_CONTRATO)'
      'LEFT JOIN SAF0101 ON (SAF0101.ID_EMPRESA = SAF0201.ID_EMPRESA)'
      'LEFT JOIN SAF0102 ON (SAF0201.ID_PRODUTOR = SAF0102.ID_CLIENTE)'
      
        'LEFT JOIN SAF0104 SAF0104_PORTO_EMBARQUE ON (SAF0201.ID_PORTO_EM' +
        'BARQUE = SAF0104_PORTO_EMBARQUE.ID_PORTO)'
      
        'LEFT JOIN SAF0104 SAF0104_PORTO_DESTINO ON (SAF0201.ID_PORTO_DES' +
        'TINO = SAF0104_PORTO_DESTINO.ID_PORTO)'
      
        'LEFT JOIN SAF0011 SAF0011_PRODUTOR_PAIS ON (SAF0102.ID_PAIS = SA' +
        'F0011_PRODUTOR_PAIS.ID_PAIS)'
      
        'LEFT JOIN SAF0011 SAF0011_PORTO_EMBARQUE_PAIS ON (SAF0104_PORTO_' +
        'EMBARQUE.ID_PAIS = SAF0011_PORTO_EMBARQUE_PAIS.ID_PAIS)'
      
        'LEFT JOIN SAF0011 SAF0011_PORTO_DESTINO_PAIS ON (SAF0104_PORTO_D' +
        'ESTINO.ID_PAIS = SAF0011_PORTO_DESTINO_PAIS.ID_PAIS)'
      
        'LEFT JOIN SAF0026 ON (SAF0026.ID_TIPO_STATUS = SAF0202.ID_TIPO_S' +
        'TATUS)'
      ''
      'WHERE'
      ' SAF0202.FLAG_REG = 1'
      ''
      'ORDER BY'
      ' SAF0201.CONTRATO_DATA DESC;')
    Left = 64
    Top = 80
  end
  object qryAuxiliar2: TADOQuery
    Connection = conADOServer
    Parameters = <>
    Left = 232
    Top = 24
  end
  object dsSAF0201_CONTRATO: TDataSource
    DataSet = qrySAF0201_CONTRATO
    Left = 64
    Top = 248
  end
  object qrySAF0201_CONTRATO: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT '
      ' SAF0201.ID_CONTRATO,'
      ''
      
        ' (CAST((RIGHT('#39'00'#39' + CAST(SAF0201.ID_REF_CONTRATO_1 AS VARCHAR),' +
        ' 2)) AS VARCHAR(2)) + '#39'.'#39' + '
      ' CAST(SAF0201.ID_REF_CONTRATO_2 AS VARCHAR(255)) + '#39'/'#39' + '
      
        ' CAST((RIGHT('#39'0000'#39' + CAST(SAF0201.ID_REF_CONTRATO_3 AS VARCHAR)' +
        ', 4)) AS VARCHAR(4))) AS ID_CONTRATO_REF_NRO,'
      ' SAF0201.EMBARQUE_ANO,'
      ' SAF0201.EMBARQUE_SEMANA'
      ' '
      'FROM SAF0201'
      ' '
      'WHERE'
      ' SAF0201.FLAG_REG = 1'
      ' AND SAF0201.CONTRATO_VALIDA = 1'
      ''
      'ORDER BY 2 DESC')
    Left = 64
    Top = 192
  end
  object dsSAF0202A: TDataSource
    DataSet = tblSAF0202A
    Left = 232
    Top = 136
  end
  object tblSAF0202A: TADOTable
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = tblSAF0202AAfterOpen
    IndexFieldNames = 'ID_PRODUCAO'
    MasterFields = 'ID_PRODUCAO'
    MasterSource = dsTabela
    TableName = 'SAF0202A'
    Left = 232
    Top = 80
    object tblSAF0202AID_PRODUCAO_ITEM: TAutoIncField
      FieldName = 'ID_PRODUCAO_ITEM'
      ReadOnly = True
    end
    object tblSAF0202AID_PRODUCAO: TIntegerField
      FieldName = 'ID_PRODUCAO'
    end
    object tblSAF0202ASIF_NRO: TIntegerField
      FieldName = 'SIF_NRO'
    end
    object tblSAF0202ASIF_MARCA: TStringField
      FieldName = 'SIF_MARCA'
      Size = 255
    end
    object tblSAF0202ASEMANA_INICIAL: TIntegerField
      FieldName = 'SEMANA_INICIAL'
    end
    object tblSAF0202ASEMANA_FINAL: TIntegerField
      FieldName = 'SEMANA_FINAL'
    end
    object tblSAF0202ADATA_INICIAL: TDateTimeField
      FieldName = 'DATA_INICIAL'
    end
    object tblSAF0202ADATA_FINAL: TDateTimeField
      FieldName = 'DATA_FINAL'
    end
    object tblSAF0202AETIQUETA_APROVACAO: TIntegerField
      FieldName = 'ETIQUETA_APROVACAO'
    end
    object tblSAF0202APRODUTO_VALIDADE: TIntegerField
      FieldName = 'PRODUTO_VALIDADE'
    end
    object tblSAF0202AID_PRODUTO: TIntegerField
      FieldName = 'ID_PRODUTO'
    end
    object tblSAF0202AID_PRODUTO_PT_DSC: TStringField
      FieldKind = fkLookup
      FieldName = 'ID_PRODUTO_PT_DSC'
      LookupDataSet = tblSAF0103
      LookupKeyFields = 'ID_PRODUTO'
      LookupResultField = 'DESCRICAO_PT'
      KeyFields = 'ID_PRODUTO'
      Size = 255
      Lookup = True
    end
    object tblSAF0202AID_PRODUTO_ING_DSC: TStringField
      FieldKind = fkLookup
      FieldName = 'ID_PRODUTO_ING_DSC'
      LookupDataSet = tblSAF0103
      LookupKeyFields = 'ID_PRODUTO'
      LookupResultField = 'DESCRICAO_ING'
      KeyFields = 'ID_PRODUTO'
      Size = 255
      Lookup = True
    end
    object tblSAF0202APRODUCAO_QTDE_PARCIAL: TFloatField
      FieldName = 'PRODUCAO_QTDE_PARCIAL'
    end
  end
  object dsSAF0202B: TDataSource
    DataSet = tblSAF0202B
    Left = 408
    Top = 136
  end
  object tblSAF0202B: TADOTable
    Connection = conADOServer
    CursorType = ctStatic
    IndexFieldNames = 'ID_PRODUCAO'
    MasterFields = 'ID_PRODUCAO'
    MasterSource = dsTabela
    TableName = 'SAF0202B'
    Left = 408
    Top = 80
  end
  object dsSAF0201_CONTRATO2: TDataSource
    DataSet = qrySAF0201_CONTRATO2
    Left = 224
    Top = 248
  end
  object qrySAF0201_CONTRATO2: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT '
      ' --CONTRATO'
      ' '
      ' SAF0201.ID_CONTRATO,'
      ' '
      ' SAF0201.ID_REF_CONTRATO_1,'
      ' SAF0201.ID_REF_CONTRATO_2,'
      ' SAF0201.ID_REF_CONTRATO_3,'
      ''
      
        ' (CAST((RIGHT('#39'00'#39' + CAST(SAF0201.ID_REF_CONTRATO_1 AS VARCHAR),' +
        ' 2)) AS VARCHAR(2)) + '#39'.'#39' + '
      ' CAST(SAF0201.ID_REF_CONTRATO_2 AS VARCHAR(255)) + '#39'/'#39' + '
      
        ' CAST((RIGHT('#39'0000'#39' + CAST(SAF0201.ID_REF_CONTRATO_3 AS VARCHAR)' +
        ', 4)) AS VARCHAR(4))) AS ID_CONTRATO_REF_NRO,'
      ''
      ' SAF0201.CONTRATO_CLIENTE_NRO, '
      ' SAF0201.CONTRATO_DATA,'
      ' SAF0201.MARCA_SIF, '
      ' '
      ' --PRODUTOR'
      ' '
      ' SAF0201.ID_PRODUTOR,'
      ' SAF0102.RAZAO AS ID_PRODUTOR_RAZAO,'
      ' SAF0102.FANTASIA AS ID_PRODUTOR_FANTASIA,'
      ' SAF0102.APELIDO AS ID_PRODUTOR_APELIDO,'
      ' SAF0102.CNPJ AS ID_PRODUTOR_CNPJ,'
      ' SAF0102.ID_PAIS AS ID_PRODUTOR_PAIS_ID,'
      ' SAF0011_PRODUTOR_PAIS.DESCRICAO_PT AS ID_PRODUTOR_PAIS_DSC_PT,'
      ' '
      ' --PRODUTO'
      '  '
      ' SAF0201.PRODUTO_TOTAL_QTDE,'
      ' '
      ' --PORTO EMBARQUE'
      ' '
      ' SAF0201.ID_PORTO_EMBARQUE,'
      
        ' SAF0104_PORTO_EMBARQUE.DESCRICAO_PT AS ID_PORTO_EMBARQUE_DSC_PT' +
        ','
      ' SAF0104_PORTO_EMBARQUE.ID_PAIS AS ID_PORTO_EMBARQUE_PAIS_ID, '
      
        ' SAF0011_PORTO_EMBARQUE_PAIS.DESCRICAO_PT AS ID_PORTO_EMBARQUE_P' +
        'AIS_DSC_PT,'
      ' '
      ' --PORTO DESTINO'
      ' '
      ' SAF0201.ID_PORTO_DESTINO,'
      ' SAF0104_PORTO_DESTINO.DESCRICAO_PT AS ID_PORTO_DESTINO_DSC_PT,'
      ' SAF0104_PORTO_DESTINO.ID_PAIS AS ID_PORTO_DESTINO_PAIS_ID,'
      
        ' SAF0011_PORTO_DESTINO_PAIS.DESCRICAO_PT AS ID_PORTO_DESTINO_PAI' +
        'S_DSC_PT,'
      ' '
      ' --EMBARQUE SEMANA'
      ' '
      ' SAF0201.EMBARQUE_ANO,'
      ' SAF0201.EMBARQUE_SEMANA,'
      ' SAF0201.EMBARQUE_SEMANA_LIMITE'
      ' '
      'FROM SAF0201'
      ' '
      ' LEFT JOIN SAF0102 ON (SAF0201.ID_PRODUTOR = SAF0102.ID_CLIENTE)'
      
        ' LEFT JOIN SAF0104 SAF0104_PORTO_EMBARQUE ON (SAF0201.ID_PORTO_E' +
        'MBARQUE = SAF0104_PORTO_EMBARQUE.ID_PORTO)'
      
        ' LEFT JOIN SAF0104 SAF0104_PORTO_DESTINO ON (SAF0201.ID_PORTO_DE' +
        'STINO = SAF0104_PORTO_DESTINO.ID_PORTO)'
      
        ' LEFT JOIN SAF0011 SAF0011_PRODUTOR_PAIS ON (SAF0102.ID_PAIS = S' +
        'AF0011_PRODUTOR_PAIS.ID_PAIS)'
      
        ' LEFT JOIN SAF0011 SAF0011_PORTO_EMBARQUE_PAIS ON (SAF0104_PORTO' +
        '_EMBARQUE.ID_PAIS = SAF0011_PORTO_EMBARQUE_PAIS.ID_PAIS)'
      
        ' LEFT JOIN SAF0011 SAF0011_PORTO_DESTINO_PAIS ON (SAF0104_PORTO_' +
        'DESTINO.ID_PAIS = SAF0011_PORTO_DESTINO_PAIS.ID_PAIS)'
      ''
      'WHERE'
      ' SAF0201.FLAG_REG = 1'
      ' AND SAF0201.CONTRATO_VALIDA = 1'
      ''
      'ORDER BY 6')
    Left = 224
    Top = 192
  end
  object dsSAF0026: TDataSource
    DataSet = tblSAF0026
    Left = 64
    Top = 360
  end
  object tblSAF0026: TADOTable
    Connection = conADOServer
    CursorType = ctStatic
    IndexFieldNames = 'DESCRICAO'
    TableName = 'SAF0026'
    Left = 64
    Top = 304
  end
  object dsSAF0103: TDataSource
    DataSet = tblSAF0103
    Left = 320
    Top = 136
  end
  object tblSAF0103: TADOTable
    Connection = conADOServer
    CursorType = ctStatic
    AfterOpen = tblSAF0103AfterOpen
    IndexFieldNames = 'DESCRICAO_PT'
    TableName = 'SAF0103'
    Left = 320
    Top = 80
  end
  object dsQrySAF0103: TDataSource
    DataSet = qrySAF0103
    Left = 520
    Top = 136
  end
  object qrySAF0103: TADOQuery
    Connection = conADOServer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT SAF0201A.*,'
      'SAF0103.DESCRICAO_PT,'
      'SAF0103.DESCRICAO_ING'
      'FROM SAF0201A'
      'JOIN SAF0103 ON (SAF0103.ID_PRODUTO = SAF0201A.ID_PRODUTO)'
      'WHERE SAF0201A.ID_CONTRATO >= 0')
    Left = 520
    Top = 80
  end
end
